home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Graphics / PCD_Manager / AdPro / Loaders2 / PCD
Encoding:
Text File  |  1996-08-25  |  2.3 KB  |  99 lines
  1. /*
  2. ** PhotoCD
  3. **
  4. ** $VER: ADPro PhotoCD Loader 1.0 (6.6.96)
  5. ** Loader for Photo-CD-Pictures in ADPro together with PCD2IFF24.
  6. ** Copyright © 1996 Allenbrand Brice
  7. ** Based on PHCD V2.1 © 1994-1995 Erik Simonson
  8. ** 
  9. */
  10.  
  11. OPTIONS RESULTS
  12. SIGNAL ON BREAK_C
  13. SIGNAL ON BREAK_D
  14. SIGNAL ON HALT
  15. SIGNAL ON SYNTAX
  16.  
  17. ConvProg      = "c:PCD2IFF24"
  18. PhotoPath     = "tmp:"
  19. TempFile      = "TMP:TempFile"
  20.  
  21. ADPro         = '"ADPro PhotoCD-Loader"'
  22. NL            = '0a'x
  23.  
  24. ADDRESS "ADPro"
  25. DISPLAYMESSAGE ADPro
  26.  
  27. FileReq   = '"Select PCD File to Load"'
  28. FileMess  = '"No picture selected, do you want to quit?"'
  29. FileChoi  = "Select|Yes"
  30. ResReq    = '"In which resolution do you want\nto have the converted picture ?"'
  31. ResRequ   = '"Do you which to do something more ?"'
  32. ConvMess  = '"Converting picture..."'
  33.  
  34. CALL FilePath("File",FileReq,PhotoPath,,FileMess,FileChoi)
  35. PhotoFile = String
  36.  
  37. OKAYN ADPro ResReq "3072x2048|1536x1024|768x512|384x256|192x128|Cancel"
  38. SELECT
  39.   WHEN RC = 1 THEN ConvArgs = 'Size 5'
  40.   WHEN RC = 2 THEN ConvArgs = 'Size 4'
  41.   WHEN RC = 3 THEN ConvArgs = 'Size 3'
  42.   WHEN RC = 4 THEN ConvArgs = 'Size 2'
  43.   WHEN RC = 5 THEN ConvArgs = 'Size 1'
  44.   WHEN RC = 0 THEN CALL Quit
  45. END
  46.  
  47. OKAYN ADPro ResRequ "None|Black&White|ColorEnhancer|Cancel"
  48. SELECT
  49.   WHEN RC = 3 THEN ConvArgs2 = 'BW'
  50.   WHEN RC = 2 THEN ConvArgs2 = 'OVSKP'
  51.   WHEN RC = 1 THEN ConvArgs2 = ' '
  52.   WHEN RC = 0 THEN CALL Quit
  53. END
  54.  
  55. DISPLAYMESSAGE ConvMess
  56. ADDRESS COMMAND ConvProg ">NIL:" ConvArgs ConvArgs2 PhotoFile TempFile
  57.  
  58. ADDRESS "ADPro"
  59. DISPLAYMESSAGE ADPro
  60. LOADER "IFF" TempFile
  61. CALL Quit
  62.  
  63.  
  64. FilePath:
  65.   PARSE ARG Type,Title,DefaultDir,DefaultFile,Mess,Choices
  66.   ADDRESS "ADPro"
  67.   Resultat = 1
  68.   DO WHILE Resultat ~= 0
  69.     IF Type = "File" THEN DO
  70.       GETFILE Title DefaultDir DefaultFile
  71.       Resultat = RC
  72.       IF Resultat ~= 0  THEN DO
  73.           OKAYN ADPro Mess Choices
  74.           IF RC = 0 THEN CALL Quit
  75.       END
  76.       String = ADPRO_RESULT
  77.     END
  78.     ELSE
  79.     IF Type = "Dir" THEN DO
  80.       GETDIR Title DefaultDir
  81.       Resultat = RC
  82.       IF Resultat ~= 0 THEN DO
  83.         OKAYN ADPro Mess Choices
  84.         IF RC = 0 THEN CALL Quit
  85.       END
  86.       String = ADPRO_RESULT
  87.     END
  88.   END
  89. RETURN String
  90.  
  91.  
  92. Quit:
  93.   PARSE ARG String
  94.   ADDRESS "ADPro"
  95.   IF String ~= "" THEN OKAY1 String
  96.   DISPLAYMESSAGE
  97.   ADDRESS COMMAND "Delete >NIL:" TempFile
  98.   EXIT 0
  99.